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Guida par l’input dai programmi versioni 
VIC SO a C04 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe ( f. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da IO] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico “so¬ 
litarioquesto dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


(CLR) 
(HOME) 
(SO) » 
(GIU*) 
(SIN) 
(DF.S) 

( RVS ) 
(OPP) 
(BLR) 

( WHT ) 
(REO) 





s 

4 * 

Ci 

x 

R 



(CYN) 

(PUR) 

(CRN) 

{BLU} 

(YEL) 

(<1>I 
I < 2 > J 
I < 3 > | 
l<4>) 
l<5>) 
[< 6 >| 



C*8l 


GBB 

HO 

DB 

DB 

BB 

DB 



«7>J 


l<8>} 

ri 

{ri} 


{F2} 

sa 

{F3 ) 

□ 

(r4) 

k 

(P5) 

e 

(r6) 

- 1 1 

{r7) 


{F8} 






Per ricever* arretrati di i/V/fi compitare I seguente tagliando: 

K . 

. Compilar e ed inviare in busta chiusa a: 

J.SOft viale Resta», 5 - 90184 Mlano - TaL 09/6888998-483797-6880841-2-3 


Nome 


Cognome- 

Indirizzo- 

CAP_ Gttà_Prov. 


Desidero ricevere i seguenti numeri arretrati di 
(^Kl(P§[ì^ ùifjfà dedicato a- 


Anno 

Anno- 


a L. 2 000 cad per un totale di L. 


a mezzo 


□ assegno allegato □ contanti allegati 

K- . 
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Stop Bus 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette. 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola '•rem ’ seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell’angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C6 4 e VIC 
20) oppure Run/Stop e Reset (su 
C16 e Plus/4) Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20, 
SYS 16128 per il 06 e il PLUS/4, 
SYS 40704 per il C 64 
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STOP BUG per C44 « VIC SO 

100 POKE55,0 : POKF.56, PEEK (56) -1 :R=PEEK(56) *256: PRINT" {CLR} 
ATTENDERE PREGO..." 

1 10 FORI*RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK<>22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R)SPRINT"{CLR}{ 2 GIU’}{RVS}STOP BUG{OFF} ATTIVAT 
O # ** • NEW 

200 DATA173,36,3,201,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 

2 30 DATAI 69,0,1 33,254,96,32,87,241 ,133 
240 DATA251,1 34,252,1 32,253,8,201 ,13,24tf 
250 DATAI 7,201 ,32,240,5,24,1 01 ,254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,165,214,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9, 32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,21 0,255,166,254,169,0 
310 DATAI 33,2 54,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 

3 30 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214^76,55,999 


STOP Bua per cié « PLUS/4 

I ^ 

é 

100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI“16128TO16260 :READA:CK*CK+A:POKEI,A:NEXT 
120 IFCKOl 424 8TIIENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141 ,34,63,169 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 
230 DATAI 69,0,13 i,6,96,32,232,235,1 33 
240 DATA3,1 34,4,1 32,5,8,201 ,1 3,240 
250 DATAI 7,201 ,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,210,255,J65,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,2 55,166,6,169,0 
310 DATAI 33,6,1 72,33,6 3,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 
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Dal n° 39 i nostri affezionati lettori troveranno in edi¬ 
cola solo due edizioni di PaperSoft. 

La prima dedicata interamente al Commodore 64 la 
seconda costituita da un'edizione mista che propor¬ 
rà programmi per il Comodore Vie 20, CI 6 e Plus 4, 
Sinclair e Texas TI99/A4. 

Gli abbonati all'edizione Sinclair riceveranno, fino 
alla fine dell’anno, l'edizione mista che conterrà i 
programmi per il loro computer. 

Gli utenti dei computer Commodore che volessero 
modificare i termini dell'abbonamento sono pregati 
di compilare e spedire a: 

J.soft - Ufficio Abbonamenti - V.le Restelli, 5 - 
20124 Milano 


K 

Cosnome _ Nome - 

Indirizzo _ Città - CAP - 

Desidero che per il mio abbonamento a PaperSoft edizione Com¬ 
modore sia inviato PaperSoft: 

□ edizione per C64 □ edizione per VIC20, CI 6/Plus4 

barrare la casella che interessa. 

Compilare ed inviare in busta chiusa a: 

J. SOft viale Restelli, 5-20124 Milano 









Errata Corrige 

Sono stati scambiati per errore i listati delle due versioni per 
CI6 e VIC 20 del programma SOTTERRANEI. Risulta perciò che 
la versione pubblicata sul numero 32 della nostra rivista “gira" 
sul VIC 20, mentre quella apparsa nel numero 33 "gira" sul CI 6. 
Ce ne scusiamo con i lettori. 


Battaglia galattica 


3KRam*Joystick 

# 


In questo emozionante e veloce 
Sioco per VIC 20 con espansione 
da 3K ram dovrete distruggere tutti 
gli alieni che si affameranno nella 
vostra zona di sorveglianza con i 
potenti laser della vostra base stel¬ 
lare. 

Purtroppo i vostri laser possiedo¬ 
no potenza sufficiente per sparare 
solamente 100 colpi. 

Facendo partire il gioco il compu¬ 
ter dà subito il via alla battaglia ga¬ 


lattica, dopo aver programmato i 
necessari caratteri. 

Con il Joystick potete muovere i 
cannoncini che si trovano ai lati del 
riquadro: essi, quando sparate, in¬ 
viano il colpo nell'incrocio delle lo¬ 
ro coordinate. 

Ogni alieno colpito frutta dieci 
punti, e quando si sono sparati i 
100 colpi a disposizione il gioco 
termina. 


I PRINT"{CLR}":POKE36879,8 :rem 115 

3 PRINT"{WHT}ISTRUZIONI.(S/N)" :rem 48 

5 GETA$ : IFA$<>"S"ANDA$<>"N"THEN5 treni 97 

7 IFA$="N"THENPRINT"{GIU'}ATTENDERE PREGO.":G0T021 

:rem 60 

9 PRINT"{CLR} BATTAGLIA GALATTICA. " :rem 222 

II PRINT"{YEL} USA IL JOYSTICK PER{ 4 SPAZI}MUOVERE IL MI 

RINO{ 3 SPAZI}SULL'ALIENO CHE FUGGE" : rem 137 

13 PRINT"E QUANDO ESSO SI TROVANEL CENTRO DELLA CROCEPREM 
I FIRE PER SPARARE" ;rem 180 
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15 PRINT"{GIU'}HAI UNA SCORTA LIMITA-TA DI COLPI; CERCA D 
I{ 4 SPAZI}NON SPRECARLI 11" :rem 72 

17 PRINT : rem 245 

19 REM —RI DEFI NI SC E I CARATTERI— :rera 15 

21 P=PEEK(52)-2:POKE52,P:POKE56,P:CLR:FORI=71 68TO7679;POK 
EI,PEEK(1+25600):NEXT :rem 30 

23 F0RC*7432T07511 : READA:POKEC, A:NEXT :rem 54 

25 REM --CARICA IL LINGUAGGIO MACCHINA PER LA LETTURA DEL 
JOYSTICK-- :rem 43 

27 A*0:FORJ=828TO91 2 : READX: POKEJ,X:A*A+X:NEXT:READX: IFXO 
ATHENPRINT"ERRORE NEI DATA":END :rem 218 

29 PRINT”{GIU'}{RVS}* FUOCO PER INIZIARE *(OFF}":SYS828 

:rem 222 

31 IFPEEK (845) OOTHEN31 :rem 71 

33 PRINT”{CLR}":POKE36869,255 :rem 11 

35 REM --VARIABILI-- :rem 147 

37 A*PEEK(36866)ANDl28:SC=4*A+64*(PEEK(36869)ANDl12) :C*30 
" 720:PH=100 :rera 216 

39 Si*36876:S2*S1+1:V*S2+1 :rem 197 

41 M(1)=SC+76:M(2)=SC+472:M(3)=SC+243:M(4)=SC+262 

:rem 138 

43 BO=SC+247+INT(RND(l )*9+1) :rem 31 

45 REM — INIZIALI ZZA LO SCHERMO-- :rem 251 

47 FORY*lTO50:W=SC+INT(RND(1)*350+67):POKEW+C,7 :POKEW,42 : 

NEXTY : rem 97 

49 FORB*SC+44TOSC+65:POKEB+C,4:POKEB+C+440,4:POKEB,33:POK 
EB+440,33 :NEXT :rem 54 

51 FORB=SC+66TOSC+462STEP22:POKEB+C , 4 :POKEB+C+21,4:POKEB, 



33 :POKEB+21,33:NEXT 

: rem 

154 

53 

REM — ROUTINE PRINCIPALE -- 

:rem 

13 

55 

CD* (M(3)+1) + (M(1)- (SC+68) ) 

srera 

164 

57 

IFPEEK(841)«OTHENGOSUB89 

: rem 

155 

59 

IFPEEK(842)-OTHENGOSUB95 

:rero 

155 

61 

IFPEEK(843)«OTHENGOSUBl01 

: rem 

185 

63 

IFPEEK(844)=0THENGOSUBl07 

:rem 

194 

65 

IFPEEK(845)=0THENGOSUBl67 

: rem 

203 

67 

IFPH<0THEN113 

:rem 

196 

69 

POKEV,0:POKESl,0:POKES2,0 

: rem 

227 

71 

IFPEEK(845)*0ANDBO*CDTHENl61 

:rem 

106 

73 

POKE(M(1)),34:POKE(M(2)),35:POKE(M(3)),36: 

POKE(M(4)),3 


7 

: rem 

172 

75 

Z*INT(RND(1)*4+1):ONZGOSUBl37,143,149,155 

2 rem 

0 

77 

POKEBO+C,7 :POKEBO,3 8 

2 rem 

144 

79 

PRINT"{HOME}{YEL}PUNTI:{WHT}"SE:PRINT"{HOME}{ 12 DES} 


{YELjREC.:{WHT}"HI 

2 rem 

73 


81 PRINT”{GRN}{HOME}{GIU*}{ 5 DES}COLPl{ 2 SPAZI}:{WHT}"P 
H"{SIN} " :rem 60 

83 IFSE>HITHENHI*SE :rem 246 

85 GOTO53 : REM —FINE ROUTINE PRINCIPALE-- :rem 15 

87 REM — MIRINO — :rem 213 

89 F0RT*3T04:M(T)*M(T)-22:POKE(M(T))+22,32 :rem 171 
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91 IFPEEK(M(T)-22)«33THENM(T)*M(T)+22 
93 NEXT:RETURN 

95 FORT=3T04:M(T)=M(T)+22:POKE(M(T))-22,32 
97 IFPEEK(M(T)+22)«33THENM(T)*M(T)-22 
99 NEXT:RETURN 

101 F0RT*lT02:M(T)*M(T)-1 :POKE(M(T))+1,32 
103 IFPEEK(M(T)-1)=33THENM(T)*M(T)+1 
105 NEXT:RETURN 

107 FORT*! T02: M(T) *M(T)+1 : POKE (M(T) ) -1,32 
109 IFPEEK(M(T)+1)*33THENM(T)*M(T)-1 
111 NEXT:RETURN 
113 REM —FINITI I COLPI — 

115 POKES2,0 

117 FORF*l50T0250STEP2:POKESl,F:POKESl-1,F-7:POKESl-2,F-l 
4 :POKEV,15:NEXT 

119 POKESl,0:POKES1-1,0:POKESl-2,0 
121 FORT*ITO4:POKE(M(T)),32 :NEXT:POKEBO,32 
123 PRINT”{WHT}{HOME}{ 7 GIU'}{ 2 DESjHAI FINITO I COLPI" 

:rem 1 

125 PRINT" {YEL}{ 2 GIU'H 2 DES}{ 4 SPAZlJPREMI FUOCO." 

:rem 1 

127 PRINT"{DES}{CYN}B{BLU}A{PUR}T{RED}T{YEL}A{GRN}G{CYN}L 

{blu}I{pur}a {red}g{yel}a{grn}l{cyn}a{blu}t{pur}t 


rem 

116 

rem 

197 

rem 

168 

rem 

122 

rem 

203 

rem 

98 

rem 

56 

rem 

239 

rem 

104 

rem 

62 

rem 

236 

rem 

176 

rem 

167 

;si-2 

» F-l 

rem 

219 

rem 

249 

rem 

85 

I COLPI" 

rem 

1 39 

■uoco 

VV 

• 

rem 

138 



{RED } I { YEL}C{GRN } A{CYN } " 

:rem 

208 

129 

PH*100:SE=0 

: rem 

65 

131 

IFPEEK (845) OOTHEN131 

:rem 

169 

133 

PRINT"{CLR}":GOT041 

: rem 

211 

135 

REM --MUOVE L'ALIENO— 

:rem 

232 

137 

BO*BO*22 :POKEBO+22,32 

: rem 

165 

139 

F0RJ*33T037:IFPEEK(BO-22)*JTHENBO*BO+22 

: rem 

131 

141 

NEXT:RETURN 

2 rem 

239 

143 

BO*BO+22:POKEBO-22,32 

2 rem 

162 

145 

FORJ*33TO37:IFPEEK(BO+22)=JTHENBO=BO-22 

2 rem 

128 

147 

NEXT:RETURN 

:rem 

245 

149 

BO-BO-1:POKEBO+1,32 

2 rem 

66 

151 

F0RJ-33T037:IFPEEK(BO-1)-JTHENBO-BO+1 

2 rem 

23 

1 53 

NEXT:RETURN 

2 rem 

242 

155 

BO-BO+1 : POKEBO-1,32 

2 rem 

63 

157 

FORJ*33TO37 : IFPEEK(BO+1 )= JTHENBO=BO-1 

2 rem 

29 

159 

NEXT:RETURN 

2 rem 

248 

161 

REM —ALIENO COLPITO— 

2 rem 

2 

163 

FORVO-15TOOSTEP-.3 : POKEBO,39:POKEV,VO :POKES2 

!,160+VO:P 


OKEBO,32 : NEXT:SE=SE+10 

2 rem 

64 

165 

POKES2,0:FORT-lTO4:POKE(M(T) ) ,32:NEXT:PRINT"{CLR} 

" :GO 


T041 

2 rem 

146 

167 

REM —SPARO— 

2 rem 

1 87 


169 POKECD-22 , 41 :POKECD+22,41 :POKECD-1,40 :POKECD+1,40 

:rem 66 

171 FORF*250TO200STEP-5:POKESl,F:POKEV,10 :POKES2,F:NEXT 

:rem 241 

173 PH*PH-1 :rem 102 
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175 POKECD-22,32s POKECD+22,32:POKECD-1,32:POKBCD+l,32 

:rem 65 

177 RETURN :rem 127 

179 REM -- DATI CARATTERI RIDEFINITI -- srem 225 

181 DATAO* 0,60,36,36,60,0,0 srem 70 

183 DATAO,255,24,24,24,24,24,24,24,24,24,24,24,24,255,0 

:rem 170 

185 DATA64,64,64,127,127,64,64,64,2,2,2,254,254,2,2,2 

:rem 94 

187 DATAI 6,16,56,108,198,40,0,0,8,0,64,0,4,0,32,1 

:rem 130 

189 DATAO, 0,0,255,0,0,0,0,16,16,16,16,16,16,16,16 

:rem 116 

191 DATAO,0,0,16,0,0,0,0 srem 160 

193 REM — DATI L.M. LETTURA JOYSTICK -- srem 221 

195 DATA120,169,78,141,20,3,169,3,141,21,3,88 :rem 217 

197 DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 

srem 144 

199 DATA34,145,173,17,145,41,4,141,73,3,173 srem 122 

201 DATAI 7,145,41 ,8,141 ,74,3,173,17,145,41 ,16,141 

srem 143 

203 DATA75,3,173,32,145,41,128,141,76,3,173 srem 113 

205 DATA17,145,41,32,141,77,3,169,255,141,34,145srem 107 
207 DATAI 69,128,141,19,145,76,191 ,234,0,0,0,0,7167 

srem 206 


. 


Caccia al tesoro 



CIÓs-pIub/4 


» 


• i.vv 

: u r •- ... '•< 

_ 


Joystick 


Scopo di questo gioco è recupera¬ 
re un tesoro lasciato dai pirati su 
un'isola sperduta, evitando una 
serie di ostacoli. Il tesoro è compo¬ 
sto da monete e lingotti d'oro e da 
un forziere pieno di gioielli. Gli 
ostacoli sono barili di rum, sabbie 
mobili e fantasmi di antichi pirati 
(che appaiono sotto forma di te¬ 
schi); insomma, tutto ciò che può 
mettere in pericolo la vita di un 
cacciatore di tesori. Quando, gui¬ 
dando il cacciatore col joystick n. 


1, sarete riusciti a raccogliere la 
maggior parte delle monete e dei 
lingotti d’oro (potete lasciare sul 
terreno una moneta e/o un lingot¬ 
to), accederete a un nuovo scher¬ 
mo. 

Non è necessario recuperare il for¬ 
ziere, ma se lo fate guadagnate 
molti più punti; ricordate però di 
tener premuto il pulsante del joy¬ 
stick mentre cercate di attraversare 
le sabbie mobili che circondano il 
forziere. Durante il gioco potete 


io 












vedere il numero dello schermo e 
il punteggio. 

Ci sono cinque livelli di difficoltà: 
quello che selezionate determina il 


numero di ostacoli fissi e mobili, 
oltre ad influenzare il punteggio 
guadagnato per ogni tesoro che 
recuperate. 


100 

GOSUBl920 

:rem 

221 

110 

COLOR4,7,3:COLORO,2,7:VOL8 

:rem 

20 

120 

PRINT"{CLR}{ 7 GIU'} {<1>]***** 

******{RVS} CACCIA 

AL T 


ESORO {OFF}***********" 

:rero 

44 

130 

FORI-14336+35*8TOl4336+47*8+7: 

READA:POKEI,A:NEXT 




:rem 

36 

140 

FORI-14336+58*8TOl4336+61 *8+7: 

READA:POKEI,A:NEXT 




:rem 

38 

150 

FORI-lTOl000:NEXT:GOSUBl050 

:rera 

145 

160 

GOSUB390 

:rem 

1 79 

170 

POKE65298,PEEK(65298)AND251:POKE65299,56 :rem 

255 

180 

RN-RN+1:P»1:Q-40 

:rera 

150 

190 

GOSUB680:GOSUBl280:GOSUBl400 

:rera 

1 88 

200 

CL-3950 

:rem 

47 

210 

JS-JOY(l)AND!5 

:rem 

26 

220 

TL-CL: Z-CL:ONJSGOSUB300,310,320,330,340,350,360,370 



:rem 

60 

230 

CL=Z:SOUND3,750,2:GOSUB430 

:rem 

40 

240 

IFFLANDNOTDFTHENGOSUB96 0 

:rem 

83 

250 

IFDFTHENl 71 0 

:rem 

168 

260 

POKETL,32:POKETL+Q,3 2 

:rem 

14 

270 

POKECL,46 :POKECL+Q,47:POKECM+CL,67 :POKECM+Q+CL,67 

:GOS 


UB750:IFGC<2ANDGB<2THEN170 

:rem 

1 80 

280 

GOSUB830:IFDFTHENl710 

:rem 

. 0 

290 

GOTO 21 0 

:rem 

1Ó3 

300 

Z*Z-Q:RETURN 

:rem 

28 

310 

Z = Z-39 : RETURN 

:rem 

56 

320 

Z-Z+P:RETURN 

:rero 

27 

330 

Z-Z+41:RETURN 

:rera 

49 

340 

Z-Z+Q:RETURN 

:rem 

30 

350 

Z-Z+39:RETURN 

:rem 

58 

360 

Z-Z-P:RETURN 

:rem 

33 

370 

Z-Z-41: RETURN 

:rem 

55 

380 

RETURN 

:rem 

123 

390 

PRINT"{GIU'}{RVS}l<2>]LIVELLO 

DI DIFFICOLTA' (1-5)?" 



:rem 

232 

400 

GETKEYA$ 

:rem 

194 

410 

AA»VAL(A$): IFAA<1ORAA>5THEN400 

:rem 

254 

420 

RETURN 

:rem 

118 

430 

• 

• 

:rem 

209 

440 

TC*0:IFPEEK(CL)«350RPEEK(CL+Q) 

-350RPEEK(CL)-360RPEEK( 


CL+Q)-36THENTC-P 

:rem 

61 

450 

IFPEEK(CL)«370RPEEK(CL+Q)«370RPEEK(CL)-380RPEEK(CL+Q) 


■38THENTC-P 

:rera 

8 
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460 IPPEEK(CL)«390RPEEK(CL+Q)-390RPEEK(CL)«40ORPEEK(CL+Q) 
-40THENTC-P :rem 255 

470 IFPEEK(CL)«4l0RPEEK(CL+Q)-41THENTC-P :rem 232 

480 IFTCTHENCL-TL:RETURN :rem 119 

490 IF(PEEK(CL)-47ANDPEEK(CL+Q)*32)OR(PEEK(CL)-32ANDPEEK( 
CL+Q) = 46)THENRETURN srem 195 

500 IFPEEK(CL)-32ANDPEEK(CL+Q)-32THENRETURN :rem 208 

510 IFPEEK(CL)-46ANDPEEK(CL+Q)-47THENRETURN :rem 220 

520 IFPEEK(CL)»420RPEEK(CL+Q)«42THEN580 :rem 95 

530 IFPEEK(CL)-610RPEEK(CL+Q)-61THENGB-GB-P:SC-SC+10*AA:S 


OUNDl, 500,25 :rem 180 

540 IFPEEK(CL)«600RPEEK(CL+Q)-60THENGC-GC-P:SC-SC+AA:SOUN 
Di,900,25 : rem 46 

550 IFPEEK(CL)-430RPEEK(CL+Q)-430RPEEK(CL)-440RPEEK(CL+Q) 
-44THEH610 :rem 112 

560 IFPEEK(CL)-450RPEEK(CL+Q)-45THEN960 jrem 107 

570 RETURN :rem 124 

580 : :rem 215 

590 POKETL,32:POKETL+Q,32:POKECL,46:POKECL+Q,47:POKECL+CM 



,0 : POKECL+CM+Q, 0 

:rem 

71 

600 

GOTO!020 

:rem 

146 

610 

• 

• 

: rem 

209 

620 

D = INT(RND( 1 )*10)+1 

:rem 

162 

630 

JB=-(JOY(1)ANDl28)/I28 

:rem 

140 

640 

IFJBANDPEEK(CJ) = 59ANDD>2THENCL=CH:POKECI 

, 32 :SC-SC+100 


*AA:FG=P:RETURN :rem 66 

650 IFJBANDPEEK(CJ)<>59ANDD>2THENCL-CL+47:GOTO430 

:rem 37 

660 CL-CH+41:POKETL,32:POKETL+Q,32:POKECL,46:POKECM+CL,67 
:GOTOl020 :rem 67 

670 : :rem 215 

680 PRINT"{CLR}":CM=-1024 :rem 253 

690 FORI-3072TO3111 :POKEI,35:POKECM+I,78:NEXT :rem 8 

700 FORI = 31 SITO4071STEP40:POKEI,35:POKECM+1,78:NEXT 


710 FORI-4030TO3991STEP-1:POKEI,35:POKECM+I,78:NEXT 

: rem 

720 FORI=4032TO3112STEP-40:POKEI,35:POKECM+I,78:NEXT 


730 

740 

750 


RETURN 


:rem 

67 

: rem 

215 

:rem 

253 

srem 

8 

NEXT 

srem 

164 

NEXT 

srem 

166 

: NEXT 

s rem 

205 

srem 

122 

srem 

213 

srem 

48 

srem 

162 


750 PRINT"{HOME}{ 24 GIU' } {OES}[<1>]SCHERMO"RN" 

{ 3 SPAZI}PUNTI"SC; :IFFGTHEN780 :rem 48 

760 RD = INT(RND(1)* 15) :rem 162 

770 ONRDGOSUB780,780,780,780,780,780,790,780,780,780,780, 
780,810,780,780 :rem 5 

780 RETURN :rem 127 

790 IFPEEK (CI ) -32ANDPEEK (CJ) -32THENPOKEC 1,58: POKEC J , 59: PO 
KECI+CM,70 :POKECJ+CM,70 :rem 229 

800 RETURN :rem 120 
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810 IFPEEK(CI)*58THENPOKECI, 32 sPOKECJ,32 :rem 214 

820 RETURN :rem 122 

830 : srem 213 

840 D*INT(RND(1)*AA)+1:ONDGOSUB910,920,930,940,950 

srem 30 

850 TS*SKs Z“SKs POKESK,32 s rem 38 

860 ONINT(RND(1)* 8)+1GOSUB300,310,320,330,340,350,360,370 

srem 3 

870 SK-ZsIFPEEK(SK)■32THENONDGOSUB1 560,1570,1580,1 590,160 
0sGOTO900 srem 156 

880 IFPEEK(SK)«460RPEEK(SK)-47THEN580 srem 19 

890 SK=TS srem 35 

900 POKESK,42sPOKESK+CM,71sRETURN srem 104 

910 SK»S1sRETURN srem 19 

920 SK*S2s RETURN srem 21 

930 SK“S3sRETURN srem 23 

940 SK*S4sRETURN srem 25 

950 SK=S5sRETURN srem 27 

960 s srem 217 

970 POKETL, 3 2 s POKETL+Q, 32 s POKECL, 4 6 s POKECL+Q, 47 s POKECL+CM 
,68 s POKECL+CM+Q,68 srem 197 

980 SOUND!,400,15sSOUNDl,450,15 srem 248 

990 TL*CLs Z*CLsONINT(RND(1)*8)+1GOSUB300,310,320,330,340, 
350,360,370 srem 13 

1000 CL“ZsIFFL=0THENFL=PsGOTO430 srem 7 

1010 IFFL=PTHENFL = 0sGOTO430 srem 168 

1020 s srem 253 

1030 FORX*lTOl0sSOUND1,500,5:SOUND1,700,5sNEXT srem 28 
1040 DF*1 sRETURN srem 215 

1050 PRINT"{CLR}{RVS} {BLK }SEI ALLA CACCIA DI UN ANTICO TE 
SORO LA- "; srem 26 

1060 PRINT"SCIATO DAI PIRATI SU UN'ISOLA SPERDUTA, "f 

srem 173 

1070 PRINT"{BLU}GUIDA IL CACCIATORE CON IL JOYSTICK IN 

{ 2 SPAZI}"; srem 60 

1080 PRINT"PORTA 2 FINO ALLE MONETE, AI LINGOTTI 

{ 3 SPAZI}"; srem 191 

1090 PRINT"D'ORO E AL FORZIERE DEL TESORO.{ 9 SPAZI}"; 

srem 72 

1100 PRINT"QUEST'ULTIMO E' CIRCONDATO DA SABBIE MO-"; 

srem 167 

1110 PRINT"BILI. HAI IL 70% DI PROBABILITÀ' DI PAS-"; 

srem 139 

1120 PRINT"SARE SE PREMI IL PULSANTE MENTRE LE AT- "; 

srem 47 

1130 PRINT"TRAVERSI.{ 31 SPAZI}"; srem 111 

1140 PRINT"{PUR}IL TESORO E' MALEDETTO E GLI SPIRITI DE-" 

; srem 229 

1150 PRINT"GLI ANTICHI PIRATI LO FANNO SCOMPARIRE 

{ 2 SPAZI}"; srem 122 

1160 PRINT"OGNI TANTO.{ 29 SPAZI}"; srem 181 

13 



1170 PRINT"{GRN}GLI SPIRITI MALIGNI HANNO ANCHE SISTEMA-" 



• 

$ 

:rem 

10 

1180 

PRINT"TO BARILI DI RUM SULL'ISOLA 

PER DISTRAR-"; 




:rem 

1 85 

1190 

PRINT"RE I CACCIATORI.{ 24 SPAZI} 

srero 

183 

1200 

PRINT"[<7>]SE IL CACCIATORE BEVE 

IL RUM, BARCOLLA 


{ 2 SPAZI}"? 

:rern 

1 23 

1210 

PRINT"E TU NON PUOI GUIDARLO.{ 17 

SPAZI}" :rem 

48 

1220 

PRINT"{GIU*}{RED}{RVS}TABELLA DEI 

PONTEGGI: 



{ 19 SPAZI}"? 

:rem 

116 

1230 

PRINT"MONETE{ 3 SPAZI}= 1 X LIVELLO DI DIFFICOLTA' 


{ 3 SPAZI}"; 

:rem 

0 

1240 

PRINT"LINGOTTI = 10 X LIVELLO DI 

DIFFICOLTA 1 



{ 2 SPAZI}"; 

:rem 

211 

1250 

PRINT"FORZIERE = 100 X LIVELLO DI 

DIFFICOLTA 1 w ; 




:rem 

0 

1260 

RETURN 

:rem 

169 

1270 

• 

• 

:rem 

4 

1280 

TB«*INT (RND ( 1 ) *8)+2: PRINT" {HOME}" : 

I*INT(RND(1)*3)+1:F 


ORX*OTOI:PRINT"{GIU'}":NEXT 

:rem 

1 59 

1290 

PRINTTAB(TB)"{GRN}&%'&%'" 

:rem 

93 

1300 

PRINTTAB(TB)"($4%')&%'" 

:rera 

172 

1310 

PRINTTAB(TB)"{DES}$($&%'$)" 

:rero 

160 

1320 

PRINTTAB(TB)"{ 3 DES }$($)$" 

:rem 

105 

1330 

PRINTTAB(TB)"{ 3 DES}$ $ $" 

:rera 

25 

1340 

PRINTTAB(TB)"{ 5 DES}${BLK}{ 2 SPAZI}#+" :rem 

243 

1 350 

PRINTTAB(TB)"{GRN}{ 5 DES}${BLU}: 

; {BLK} 9 ,f :rera 

123 

1360 

PRINTTAB(TB)"{ 8 DES},+" 

:rem 

1 52 

1370 

PRINTTAB(TB)"{ 5 DES}+,+," 

:rem 

153 

1380 

CH=PEEK(200)+256*PEEK(201)-(160-(TB+7)):CJ=CH+Q: 

CI-C 


J-P 

:rem 

58 

1390 

RETURN 

:rem 

173 

1400 

• 

• 

:rem 

255 

1410 

FORI*PTO 7*AA 

:rem 

9 

1420 

X=INT(RND(1)*720)+31 12 

:rem 

179 

1430 

IFPEEK (X) O320RPEEK (X+P) O320RPEEK (X-P) 0320RPEEK ( X+ 


Q)<>32THENl420 

:rem 

88 

1440 

IFPEEK (X-Q) 032THEN1 420 

:rem 

121 

1450 

POKEX,45:POKECM+X,68:NEXT 

:rem 

117 

1460 

FORI=PT06*AA 

:rem 

13 

1470 

X*INT(RND(1 )*720)+31 12 

:rem 

1 84 

1480 

IFPEEK (X) O320RPEEK (X+P) O320RPEEK (X-P) <>320RPEEK (X+ 


Q)<> 32THEN1470 

:rein 

98 

1490 

IFPEEK (X-Q) 032THEN1 470 

:rem 

131 

1500 

POKEX,42:POKECM+X,0 :NEXT 

:rero 

48 

1510 

FORI=PTOAA 

:rem 

169 

1520 

SK*INT(RND (1 ) *720) +31 1 2 : IFPEEK (SK) 042THEN1 520 




:rem 

174 

1530 

POKESK+CM,71 

:rera 

229 

1540 

ONIGOSUBl560,1570,1 580,1 590,1 600 

:rem 

221 

1550 

NEXT:GOTO!610 

:rem 

69 
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1560 

Sl-SK:RETURN 

s rem 

69 

1570 

S2-SK:RETURN 

:rem 

71 

1580 

S3*SK:RETURN 

: rem 

73 

1590 

S4*SK:RETURN 

2 rem 

75 

1600 

S5*SK:RETURN 

2 rem 

68 

1610 

GC*25:B«60:FORI»lTO25 

2 rem 

247 

1620 

GOSUB1700 

2 rem 

17 

1630 

IFPEEK(X)<>320RPEEK(X+Q)><320RPEEK(X-Q)><3 2THEN1 620 



2 rem 

148 

1640 

POKEX,B:POKECM+X,71 :NEXT 

2 rem 

73 

1650 

GB a 5:B*61: FORI*!T05 

2 rem 

151 

1660 

GOSUBl700 

2 rem 

21 

1670 

IFPEEK (X) <>320RPEEK (X+Q) ><320RPEEK (X-Q) X32THEN1660 



2 rem 

156 

1680 

POKEX/B:POKECM+X,71 :NEXT 

2 rem 

77 

1690 

RETURN 

2 rem 

176 

1700 

X*INT(RND(1)*755)+31 12:RETURN 

2 rem 

214 

1710 

• 

• 

2 rem 

3 

1720 

POKE65298, PEEK(65298)OR4:POKE65299,208 

2 rem 

202 

1730 

PRINT”{CLR}{ 3 GIU'}{RVS}{GRN}{ 9 SPAZI}UN' 

ALTRA VIT 


TIMA DELLA{ 9 SPAZI}"; 

2 rem 

1 39 

1740 

PRINT"{ 7 SPAZIJMALEDIZIONE DEI PIRATI III 
{ 7 SPAZI}" 

2 rem 

204 

1750 

PRINT"{ 2 GIU'}{RVS}{RED}LIVELLO DI DIFFICOLTA': 

"AA 



2 rem 

74 

1 760 

PRINT"{GIU'}{RVS}{RED}SCHERMI:"RN 

2 rem 

195 

1770 

PRINT"{GIU'}{RVS}{RED}PUNTI:"SC 

2 rem 

63 

1780 

PRINT"{GIU'}{RVS}{RED}GIOCHI ANCORA (S/N)?" 

:POKE239, 


0 

2 rem 

10 

1790 

GETKEYA$ 

2 rem 

255 

1800 

IFA$*"S"THENRN*0:FL*0:FG=0:DF=0:SC*0:PRINT"{CLR} 

" :GO 


TO160 

2 rem 

80 

1810 

IFA$="N"THENEND 

2 rem 

147 

1820 

GOTO 1 790 

2 rem 

213 

1830 

DATA2 55,255,255,255,255,255,255,255,28.28,28,28, 

28,2 


8,28,28 

2 rem 

1 70 

1840 

DATAI 29,227,247,255,2 55,2 55,255,1 56,1 5,1 27, 

1 27,227,1 


43,63,113,243 

2 rem 

191 

1850 

DATA248,254,254,227,249,252,207,227,1 99,1 59 

,62,56,12 


0,96,96,64,121,120,28 

2 rem 

92 

1860 

DATAI 4,6,6,7, 

2 rem 

161 

1870 

DATA60,126,90,126,126,36,60,24,28,63,31 ,2 55 

,255, 

1 27, 


124,56 

2 rem 

88 

1880 

DATA60,254,255,255,243,120,56,60,28,62,62,62,62, 

62,6 


2,28 

2 rem 

249 

1890 

DATA60,126,219,255,102,60,24,2 55,189,1 89,1 89,189 

, 36, 


36,36,102 

2 rem 

8 

1900 

DATAI 5,31 ,63,63,63,63,63,63,248,2 52,2 54,254 

,254, 

254, 


254,254 

2 rem 

145 

1910 

DATA? ,,24,24,,,,,,,127,127,,,0 

2 rem 

169 

1920 

REM INIZIO CARATTERI=1 4 336 ($3800) 

2 rem 

1 59 
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1930 COLORO,1:PRINT"{CLR}{BLK}{ 3 GIU'}MO":PRINT" 

{ 5 GIU'JTDOOO D6FF 3800";PRINT"{GIU'}X":PRINT" 

{GIU'}GOl960{HOME}" :rem 56 

1940 POKE51 ,TF:POKE55,0:POKE52,56:POKE56,56 :rem 192 

1950 POKE239,4 : FORI = 1319TOl322 :POKEI,13:NEXT:END : rem 168 

1960 RETURN :rem 176 

: rem 0 


Campo minato 


CIók-pìus/4 

Joystick 


Sei alla guida di un camion e co¬ 
mandi una squadra di artificieri, il 
cui compito è quello di disinnesca¬ 
re tutte le bombe presenti in una 
serie di campi minati. All'Inizio il 
tuo camion appare al centro del 
campo, dove le mine sono rappre¬ 
sentate con delle “ X" e le bombe 
con dei cerchietti) il movimento del 
camion è comandato dal Joystick 
n. 1. Dopo poco tempo le bombe, 
una per volta, appaiono sul video 
in negativo: ciò significa che sono 
innescate. Successivamente inizia¬ 
no a lampeggiare, il che indica l'im¬ 
minenza dell’esplosione. Per neu¬ 
tralizzare devi passarci sopra, ot¬ 
tenendo in tal modo 10 punti per 
le bombe normali, 20 per quelle in 
negativo e 30 per quelle lampeg¬ 
gianti. Ogni volta che una bomba 
esplode, essa distrugge tutto ciò 


che si trova nei suoi immediati din¬ 
torni (eventualmente anche te), e 
fa scoppiare anche le bombe che 
le stanno vicino, per cui può anche 
venir innescata una reazione a ca¬ 
tena. 

Mentre ti sposti nel campo, devi 
evitare non solo le mine, ma anche 
i crateri lasciati dalle bombe esplo¬ 
se (asterischi). Quando un campo 
resta privo di bombe, o perché so¬ 
no scoppiate o perché tu le hai di¬ 
sinnescate, lo schermo è completa¬ 
to e si passa al successivo, con un 
maggior numero di bombe. Alla fi¬ 
ne di ogni schermo vieni penaliz¬ 
zato di 10 punti per ogni bomba 
esplosa. Puoi scegliere tra quattro 
livelli di difficoltà, che determina¬ 
no il numero di vite a tua disposi¬ 
zione. 


100 

COLOR4,6,2 SCOLORO,1 

srem 

74 

no 

GOSUBl270 

srem 

220 

120 

DIMBT(37),B3(37),B4 (37),BP(37) 

f BS(37),XM(8),YM(8) 

,BC( 


25) 

srem 

138 

130 

DEFFNY(X)*INT((X-3072)/40) 

srem 

167 

140 

DEFFNX(X)■(X-40*FNY(X))-3072 

srem 

41 

150 

DEFFNS(X)»3072+PX+40*PY 

srem 

51 
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160 DEFFNP(X)-3355+INT(34*RND(1))+40*INT(l5*RND(1)) 

srem 73 

170 DEFFNN(X)*PEEK(FNS(X)) :rem 53 

180 F0RJ«lT08:READXM(J),YM(J):NEXT :rem 143 

190 0ATAO/ —1 » 1 * —l#l»0»l»l»0flf — Iflf — ljO» — 1# — 1 siem 98 

200 SC*0:BT*1680:NB=4:NW=0:D*-1024 :rem 167 

210 PRINT"{CLR}"; :POKE65299,208 :rem 112 

220 PRINT"{RVS}{WHT}CAMPO***- PUNTI: 0" :rem 65 

230 PRINT"{RVS}{WHT}********~ RECORD:";HS :rem 121 

240 PRINT"{RVS}{WHT}**MINATO- SCHERMO: 1" :rem 243 

250 PRINT"{RVS}{WHT}{ 8 SPAZI}- "; :IFNL< >1THENFORJ*!TONL- 
1 :PRINT"Z";:NEXT :rem 167 

260 FORJ-307TTO3231:IFPEEK(J)-32THENPOKEJ,160:POKEJ+D,113 





:rero 

1 83 

270 

NEXT 


: rem 

216 

280 

XP$*"{DES}{RED}U-I{GIU '} { 4 SIN}{ 2 U}-{ 2 

iHgiu 1 

} 


{ 6 SIN}{ 

3 U}-{3 I } {GIU '}{ 7 SIN}{ 3 *}*{ 

3 * } 



{GIU * }{ 7 

SIN}! 3 jT-{ 3 K}" 

:rem 

173 

290 

XP$*XP$+"{RED}{GIU ' }T 6 SIN}{ 2 j}-{ 2 K}{GIU'} 



{ 4 SIN}J- 

-K" 

:rera 

1 84 

300 

S$*"{HOME 

FT 24 GIU'}" 

:rem 

54 

310 

Q$-"{WHT} 

O 

O 

e 

w* 

3 

: rem 

23 

320 

XR$-"{DES] 

|{WHT}{ 3 SPAZI}{GIU' }{ 4 SIN}{ 5 

SPAZI} 



{GIU '}{ 6 

SIN} { 7 SPAZI } {GIU' }{ 7 SIN}{ 3 SPAZI}* 



{ 3 SPAZI } {GIU* }{ 7 SIN} { 7 SPAZI}" 

:rem 

44 

330 

XR$-XR$+" 

{GIU'H 6 SIN} { 5 SPAZI } {GIU* }{ 4 

SIN} 



{ 3 SPAZI}" 

:rem 

34 - 

340 

• 

• 


:rem 

209 

350 

BG-0:NW-NW+1 : IFNW>11THEN380 

srem 

131 

360 

NB-NB+1.5i 

: IFNW*lTHEN41 0 

srem 

85 

370 

IFNW<6THENBT*BT-1 80 

srem 

158 

380 

PRINT"{HOME} { 2 GIU '} {RVS }" ;TAB(18) ; NW 

srem 

95 

390 

POKEFNS (1 ) ,32:FORJ*lTONB:POKEBP(J),32:NEXT 

srem 

113 

400 

FORJ*lT025:POKEBC(J),32:NEXT 

srem 

208 

410 

BN-INT(NB):FORJ * 1TONB:BS(J)*1 :NEXT 

srem 

139 

420 

FORJ-1TONB 

srem 

104 

430 

BT(J) ■ ( •4+INT(61*RND(1 ) )/100)*BT 

srem 

150 

440 

B3(J)«BT(J)+.5*BT(J):B4 ( J)-B3(J)+BT ( J) 

srem 

243 

450 

NEXT 


srem 

216 

460 

PX-19:PY- 

1 5:POKEFNS(1 )/ 9 0 : POKEFNS(1)+D f 113 

srem 

216 

470 

FORJ*1TONB 

srem 

109 

480 

BP ( J) -FNP (1 ) : IFPEEK (BP (J) ) O32THEN480 

srem 

130 

490 

POKEBP(J) 

, 87:POKEBP(J)+D,72:NEXT:NN-0 

srem 

234 

500 

FORJ*ITO25 

srem 

62 

510 

BC ( J) -FNP (1 ) : IFPEEK (BC (J) ) 032THEN51 0 

srem 

92 

520 

IFPEEK(BC(J)+1 ) -87THEN510 

srem 

137 

530 

POKEBC(J) 

, 86 : POKEBC(J)+D , 69 : NEXT 

srem 

141 

540 

DR*0 : TX*TI 

srem 

92 

550 

R-JOY(1)ANDl5:IFR>0THENDR-R:GOTO570 

srem 

194 

560 

IFDR-0THEN660 

srem 

248 

570 

POKEFNS(1),32:PX-PX+XM(DR):PY-PY+YM(DR) 

srem 

196 
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580 IFPX<0THENPX»39 trem 192 

590 IFPX>39THENPX=0 :rem 195 

600 IFPY<4THENPY-24 :rem 185 

610 IFPY>24THENPY-4 treni 188 

620 X-FNN(l) treni 145 

630 IFX-32THENPOKEFNS(1),90:POKEFNS(1)+D,113:GOTO660 

trem 143 

640 IFX-420RX-86THEN1050 trem 189 

650 GOTO970 trem 116 

660 NN-NN+1:IFNN>INT(NB)THENNN-1 trem 21 

670 IFBS(NN)-0THEN660 trem 230 

680 TG-TI-TX trem 236 

690 IFTG>B4(NN)THENNl-NN:GOTO780 trem 3 

700 IFBS(NN)>2THEN750 trem 227 

710 IFTG>BT (NN)THENBS (NN)«2 trem 163 

720 IFTG>B3(NN)THENBS(NN)-3 trem 132 

730 IFBS(NN)-1THEN550 trem 226 

740 IFBS(NN)-2THENPOKEBP(NN),215:POKEBP(NN)+D,113:GOTO550 

trem 225 

750 IFBS(NN)= 3THENPOKEBP(NN),87:POKEBP(NN) +D, 11 3 : BS (NN) -4 
:GOTO550 trem 231 

760 IFBS(NN)-4THENPOKEBP(NN),215:POKEBP(NN)+D,113:BS(NN)- 
3:GOTO550 trem 17 

770 : trem 216 

780 TQ-TI:PD«0 trem 89 

790 X$ = "{OFF}"+LEFT$(S$,FNY(BP(Ni))-2)+LEFT$(Q$,FNX(BP(Ni 
))-1 ) trem 5 

800 BS(Ni)-0:N2-0:PRINTX$;XP$; trem 22 

810 FORJ-1TONB:X-PEEK(BP(J)):IFBS(J)-0THEN830 trem 13 

820 IFX087ANDX0215ANDX0218THENN2-J trem 29 

830 NEXTtlFFNN(l) O90ANDFNN (1 ) 021 8THENPD-1 trem 103 

840 PRINTX$;XR$;:GR«129:GOSUBl550 trem 26 

850 FORJ-1 TONB : IFPEEK (BP ( J) ) = 32ANDBS ( J) OOTHENPOKEBP ( J) ,8 
7-128*(BS(J)>1) trem 50 

860 NIHCT:BN=BN-1 trem 210 

870 IFPD-1THEN1050 trem 37 

880 IFBN-0THEN910 trem 245 

890 IFN2»0THENTX»TX+(TI-TQ)IGOTO550 trem 217 

900 Nl*N2:GOTO790 trem 232 

910 PRINT"(HOME){ 2 GIU'}{RVS>";TAB(20); trem 178 

920 FORJ-1TO20:PRINT"{RVS}{ 2 SPAZI}COMPLETATO{ 12 SIN}"; 

tFORK-lTOlOOtNEXT trem 114 

930 PRINT"{RVS}{ 12 SPAZl}{ 12 SIN}"; :FORK-1TOl00:NEXTtNE 
XT trem 22 

940 SC-SC-10*(INT(NB)-BG):IFSC<0THENSC-0 trem 142 

950 PRINT"{ 4 SIN}{ 3 SU}{ 10 SPAZl}{ 10 SIN}";SC:GOTO350 

trem 148 

960 : trem 217 

970 BG-BG+1:TQ-TI:POKEFNS(1),218 trem 157 

980 FORJ-1TONB:IFPEEK(BP(J))-218THENAJ-BS(J)tBS(J)-0 
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990 NEXT :rem 225 

1000 IFAJ*4THENAJ*3 :rem 118 

1010 SC«SC+10*AJ:PRINT"{HOME}{RVS}";TAB(16);SC :rem 55 
1020 GR*33:GOSUB1550:BN»BN-1:IFBN-0THEN910 irem 8 

1030 TX*TX+(TI-TQ):GOTO550 :rem 81 

1040 : :rem 255 

1050 GR s 129:GOSUBl550 ;rem 189 

1060 TQ*TI:FORJ*lTO20:POKEFNS(1),42:F0RK*1T025:NEXT:POKEF 
NS (1 ) ,170 :rem 1 23 

1070 F0RK=lT025:NEXT:NEXT:POKEFNS(1),32:NL«NL-1 :rem 208 
1080 POKE3201+NL,160:DR*0:PX*19:PY*15 :rem 146 

1090 IFNL-0THEN1150 :rem 86 

1100 IFBN-0THEN910 :rem 23 

Ilio GETKEYR$ :rera 2 

1120 FORJ*lTONB:IFPEEK(BP(J))= 32ANDBS(J)<>OTHENPOKEBP(J), 
8 7-128* (BS(J)>1) :rem 89 

1130 NEXT :rero 4 

1140 POKEFNS(1),90:TX*TX+(TI-TQ):GOTO550 :rera 186 

1150 IFSC>HSTHENHS=SC:PRINT"{HOME}{GIU'}{RVS} " ;TAB(17);HS 

:rem 68 

1160 FORJ a lTOl500:NEXT:PRINT"{HOME}{WHT}{ 3 GIU'}{RVS}";T 
AB(24);"FINE GIOCO{GIU'}{ 12 SIN} ANCORA?";:rem 39 
1170 PRINT"(S/N) { 5 SIN}"? :rem 7 

1180 PRINT"{RVS}S/{OFF}N{ 3 SIN}"; :rem 33 

1190 FORJ a lT099:NEXT :rem 248 

1200 PRINT"{OFF}S{RVS}/N{ 3 SIN}"; :rem 26 

1210 FORJ*1TO99:NEXT :rem 241 

1220 GETR$:IFR$*"S"THENl250 :rem 37 

1230 IFR$<>"N"THENl180 :rem 208 

1240 PRINT"{CLR}{WHT}{ 2 SPAZI}CIAO!{ 2 SPAZI}":END 

:rera 126 

1250 GOSUBl270:GOTO200 :rem 23 

1260 : :rem 3 

1270 PRINT"{CLR}{RVS}{WHT}{ 6 DES}{ 2 SPAZI}C A M P O 
{ 4 SPAZI }M I N A T 0{ 2 SPAZI}": POKEesTS?,?! - ? 

:rem 228 

1280 PRINT"{ 2 GIU'}VUOI LE ISTRUZIONI? (S/N)" :rem 146 
1290 GETR$:IFR$“"N"THENl510 :rem 38 

1300 IFR$<>"S"THENl290 :rem 213 

1310 PRINT"{CLR}{GIU'}LO SCOPO DEL GIOCO E' DISINNESCARE" 

:rem 3 

1320 PRINT"PIU' BOMBE POSSIBILI PRIMA CHE QUESTE" 

:rem 223 

1330 PRINT"SCOPPINO. PER FARE CIO' DEVI RAGGIUN-" 

:rem 26 

1340 PRINT"GERLE CON IL TUO CAMION." :rem 90 

1350 PRINT"LE BOMBE DOPO POCO TEMPO APPAIONO IN":rem 230 
1360 PRINT"NEGATIVO, POI LAMPEGGIANO; A QUESTO" :rem 141 
1370 PRINT"PUNTO STANNO PER ESPLODERE: ATTENTOl":rem 9 
1380 PRINT"SE UNA BOMBA ESPLODERÀ' VICINO A TE,":rem 142 
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1390 PRINT"SALTERAI IN ARIA 1 UNA ESPLOSIONE PUÒ'" 

srem 72 

1400 PRINT"ANCHE PROVOCARE UNA REAZIONE A CATENA." 

srem 2 

1410 PRINT"NON FINIRE NEI CRATERI DELLE BOMBE (*)" 

srem 235 

1420 PRINT"0 CONTRO UNA MINA (X), SE NON VUOI" srem 224 
1430 PRINT"ESSERE DISTRUTTO." :rem 96 

1440 PRINT"{GIU'}PER MUOVERTI USA IL JOYSTICK (PORTA 1)." 

srem 177 

1450 PRINT"{GIU'}UNA VOLTA PARTITO, IL TUO CAMION NON" 

srem 20 

1460 PRINT"PUÒ' FERMARSI, MA PUÒ' ATTRAVERSARE IL" 

srem 14 

1470 PRINT"BORDO DELLO SCHERMO E RICOMPARIRE SUL" 

srem 10 

1480 PRINT"LATO OPPOSTO." :rem 48 

1490 PRINT"{ 2 GIU'JPREMI RETURN PER CONTINUARE." 

srem 171 

1500 GETR$ : IFR$OCHR$ (13) THENl 500 s rem 128 

1510 PRINT"{CLR}LIVELLO DI DIFFICOLTA' ? (0-3)" srem 107 

1520 GETR$ : IFR$<* r 0"ORR$>" 3"THENl 520 srem 208 

1530 NL=4-VAL(R$): RETURN 5 rem 197 

1540 END srem 161 

1550 FORS=8TOOSTEP-1:VOLS:SOUND3,700,5:NEXT:RETURN 

srem 18 


C64 

Quìlt Squares 


Hai mai pensato di creare motivi 
ornamentali con il tuo C64? Questo 
programma te lo permette. 
Airinizio ti verranno date delle 
brevi istruzioni e ti verrà richiesto 
il numero di colori che vuoi utiliz¬ 
zare (fino a quattro). Subito dopo 
ti verranno mostrate le tessere che 
potrai utilizzare nella tua composi¬ 
zione. Usando FI potrai scegliere 
la tessera desiderata, poi premen¬ 
do RETURN la tessera andrà a posi¬ 
zionarsi nella casella contenente il 


punto di domanda. 

La griglia da riempire è composta 
da sedici caselle,- dopo che le avrai 
riempite, premendo F7 essa verrà 
stampata su tutto lo schermo. Se 
hai commesso un errore, con FI 
potrai cambiare le tessere sbaglia¬ 
te o lasciarle invariate premendo 
RETURN. 

IMPORTANTE: salva il programma 
appena hai finito di digitarlo, sen¬ 
za dare il RUN. In seguito, prima di 
caricarlo batti sempre i seguenti 
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comandi (senza numero di linea): i POKE 8192,0 : POKE 44,32 : NEW 


10 REM *** QUILT SQUARES *** :rem 244 

20 POKE53280,0 :POKE53281 f 6:GOTO310 :rem 196 

30 POKEA,!03:POKEA+1,103:POKEA+40,103 :POKEA+41,103:CC“C(1 
):RETURN :rem 40 

40 POKEA,103:POKEA+1,100:POKEA+40,100:POKEA+41,96:COC(l) 

:RETURN :rem 254 

50 POKEA,!02:POKEA+1,103:POKEA+40,96:POKEA+41,102:CC-C(1) 

:RETURN :rem 3 

60 POKEA,101 : POKEA+1 ,96 : POKEA+40,1 03 : POKEA+41 ,101 :CCC(1) 

:RETURN :rem 2 

70 POKEA, 96 : POKEA+1,99 : POKEA+40,99 : POKEA+41,103:COC(1) :R 
ETURN :rem 195 

80 POKEA,96 :POKEA+1,96 :POKEA+40,96 :POKEA+41,96:CC*C(1): RE 
TURN :rem 153 

90 POKEA,160:POKEA+1,160:POKEA+40,160:POKEA+41,160:COC(1 
):RETURN :rem 58 

100 POKEA, 1 60: POKEA+1 ,1 63 : POKEA+40,1 63 : POKEA+41 ,103:COC( 

1) :RETURN :rera 101 

110 POKEA,! 60:POKEA+1 ,1 63: POKEA+40,1 63 : POKEA+41 ,103:COC( 

2) :RETURN srem 103 

120 POKEA,165:POKEA+1,160:POKEA+40,167:POKEA+41,165:CC=C( 

1) : RETURN :rem 117 

130 POKEA,167:POKEA+1,164:POKEA+40,164:POKEA+41,160:CC«C( 

2) :RETURN :rem 117 

140 POKEA,167:POKEA+1,164 :POKEA+40,164 :POKEA+41,160:CC-C( 

1):RETURN :rem 117 

150 POKEA, 1 66: POKEA+1 ,1 67: POKEA+40,1 60 : POKEA+41 ,166:COC( 

1) :RETURN :rem 122 

160 POKEA, 1 66 : POKEA+1,167: POKEA+40,1 60 : POKEA+41,166:COC( 

2) :RETURN srem 124 

170 POKEA,165:POKEA+1,160:POKEA+40,167:POKEA+41,165sCOC( 

2):RETURN :rem 123 

180 POKEA,224:POKEA+1,224:POKEA+40,224:POKEA+41 ,224:COC( 

1):RETURN :rem 110 

190 POKEA,224:POKEA+1,227:POKEA+40,227:POKEA+41,231:CC=C( 

1) :RETURN srem 115 

200 POKEA,224:POKEA+1,227:POKEA+40,227:POKEA+41,231:CC=C( 

2) :RETURN srem 108 

210 POKEA,224: POKEA+1,227 : POKEA+40,227 : POKEA+41 ,231 :CCC( 

3) :RETURN srem 110 

220 POKEA,229:POKEA+1,224:POKEA+40,231 :POKEA+41 ,229:CC=C( 

1) :RETURN srem 113 

230 POKEA, 229-.POKEA+1,224 : POKEA+40,231 :POKEA+41 ,229:CC«C( 

2) :RETURN :rem 115 

240 POKEA,229:POKEA+l,224:POKEA+40,231 :POKEA+41 ,229:CC*C( 

3) :RETURN srem 117 
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POKEA,231:POKEA+l,228:POKEA+40,228:POKEA+41,224:CC«C( 
3): RETURN srem 116 

260 POKEA,231:POKEA+l,228:POKEA+40,228:POKEA+41,224:CC-C( 
2):RETURN Jrem 116 

POKEA,231 :POKEA+1,228:POKEA+40,228:POKEA+41 ,224:CC-C( 
1):RETURN srem 116 


250 


270 POKEA 

1):RETURN 



320 

330 



RAM 

POKE56334,0 :POKEl,51 
FOR02048T06143 
POKEC,PEEK(C+51200) 


NEXT 

POKEl,55 :POKE56334,1 29 :POKE53272,19 
POKE53281,15 : 

PRINT"{CLR}[<4>]":PRINTTAB( 1 3)"QUILT SQUARES" 


410 

420 

430 

440 

450 

460 

470 

480 


DIMS (16) ,Q(28) ,R (28) : 

PRINT"{GIU'}USA Fi PER SPOSTARTI SUL QUADRATO 


rem 
:rem 


PRINT"DESIDERATO, POI PREMI <RETURN>. 

REM RIDEFINISCE I CARATTERI 
FORC»2048+8*35TO2048+8*42-l 
READG:POKEC,G 
NEXT • ri 

FORC»2048+27*8TO2048+30*8-l : READG : POKEC, G : NEXT 


rem 
:rem 
:rem 
: rem 
:rem 
:rem 


217 
235 

221 

101 

137 

133 

28 

218 


490 DATA0,1,3,7,15,31,63,127 

500 DATA255,254,252,248,240,224,192,128 

510 DATAI 28,192,224,240,248,252,254,255 

520 DATA127,63,31 ,15,7,3,1 ,0 

530 DATA255,255,255,255,255,255,255,255 

540 DATA255,128,128,128,128,128,128,128 

550 DATA255,1 ,1 ,1 ,1 ,1 ,1 #1 

560 DATAI 28,128,128,128,128,128,128,255 

570 DATA255,129,129,129,129,129,129,255 

580 DATAI ,1,1,1,1,1,1,255 

590 REM SUONO 

600 F0RC-54272T054296:POKEC,0:NEXT 
610 POKE54296,15:POKE54277,190:POKE54278,248 
620 HF-54273:LF«54272:W-54276 
630 A$-"() () 0 ()" 

640 B$«" [] [1 [] []" 


:rem 187 
:rem 131 
:rem 182 
:rem 183 
:rem 125 
:rera 198 
:rem 192 
:rem 219 
:rem 194 
:rem 202 
:rem 222 
:rem 22 
:rem 47 
:rem 215 
:rem 75 
:rem 195 
:rem 97 
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650 FORI*lTOl6 :READS(I):NEXT :rem 255 

660 DATAI 352,1354,1356,1358,1432,1434,1436,1438 :rem 86 
670 DATAI 512,1514,1516,1518,1592,1594,1596,1598 :rem 107 
680 F0RI-1T028:READQ(I),R(I):NEXT :rem 27 

690 DATAI 142,103,1262,100,1382,102,1379,101,1259,99,1139, 
96 :rem 156 

700 DATAI 136,160,1256,163,1376,163,1496,165,1499,164;1502 
,164 :rem 15 

710 DATA1622,166,1619,166,1616,165 :rem 206 

720 DATA1133,224,1253,227,1373,227,1493,227,1613,229,1733 
,229,1853,229 :rem 203 

730 DATAI 856,228,1859,228,1 862,228,1742,230,1739,230,1736 



,230 

:rein 

26 

740 

QQ(2)*6:QQ(3)*15:QQ(4)*28 

:rem 

62 

750 

PRINT"{ 2 GIU'}SCEGLI IL NUMERO 

DI COLORI <2-3-4> 

:rera 

. n 

173 

760 

GOSUBl970 

:rem 

238 

770 

GETE$:IFE$<"2"ORE$>"4"THEN770 

srem 

88 

780 

N-VAL(E$) 

srem 

199 

790 

PRINT"{CLR}": FORI*1TON 

srem 

205 

800 
81 0 

PRINT"SCEGLI IL COLORE ";I 
PRINT"{GIU'}{RVS}{BLK} {OFF}{ 2 

srem 

SPAZI}{RVS}{WHT} 

253 


{OFF}{ 2 SPAZI}{RVS}{RED} {OFF}{ 2 SPAZI}{RVS}{CYN} 


820 


{OFF}{ 2 SPAZI}{RVS 
{OFF}{ 2 SPAZI}{RVS 
{OFF}{ 2 SPAZI}{RVS 


{PUR} {OFF}{ 2 SPAZI}{RVS}{GRN} 
{BLU} {OFF}{ 2 SPAZI}{RVS}{YEL} 
[<!>} [<4>]" :rera 140 

PRINT"0{ 2 SPAZI}1{ 2 SPAZI}2{ 2 SPAZI}3{ 2 SPAZI}4 
{ 2 SPAZI}5{ 2 SPAZI}6{ 2 SPAZI}7{ 2 SPAZI}8" 




srem 

63 

830 

GOSUBl970 

srem 

236 

840 

GETE$:IFE$<"0"ORE$>"8"THEN840 

srem 

86 

850 

C(I)“VAL(E$) 

srem 

84 

860 

PRINTTAB(3*C(I))"t{GIU'}" 

srera 

64 

870 

NEXT 

srem 

222 

880 

PRINT"{CLR}" 

srem 

4 

890 

POKE53282,C(2):POKE53283,C(3):POKE53284,C(4) 

srera 

138 

900 

POKE53265,PEEK(53265)OR64 

srem 

127 

910 

CC-C(l) 

srem 

34 

920 

POKEl139,96:POKEl139+LF,CC 

srem 

217 

930 

POKEl142,103:POKEl142+LF,CC 

srem 

243 

940 

POKEl259,99:POKEl259+LF,CC 

srem 

228 

950 

POKEl262,100:POKEl262+LF,CC 

srem 

248 

960 

POKEl379,101 :POKEl379+LF,CC 

srem 

12 

970 

POKEl382,102:POKEl382+LF,CC 

srem 

2 

980 

IFN-2THEN1220 

srem 

225 

990 

POKEl136,160:POKEl136+LF,CC 

srem 

2 

1000 POKEl256,163:POKEl256+LF,CC 

srem 

42 

1010 POKEl376,163:POKEl376+LF,C(2) 

srem 

113 

1020 POKEl496,165:POKEl496+LF,CC 

srem 

58 

1030 POKEl499,164:POKEl499+LF,C(2) 

srem 

128 

1040 POKEl502,164:POKEl502+LF,CC 

srem 

35 
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1050 

POKEl616,165:POKEl616+LF,C(2) 

:rem 

113 

1060 

POKEl619,166:POKEl619+LF,C(2) 

:rem 

121 

1070 

POKEl622,166:POKEl622+LF,CC 

:rem 

46 

1080 

IFN=3THENl220 

: rem 

10 

1090 

POKEl133,224:POKEl133+LF,CC 

:rem 

37 

1100 

POKEl253,227:POKEl253+LF,CC 

:rera 

38 

ino 

POKEl373,227:POKEl373+LF,C(2) 

:rera 

109 

1120 

POKEl493,227:POKEl493+LF,C(3) 

:rem 

117 

1130 

POKEl613,229:POKEl613+LF,CC 

:rem 

43 

1140 

POKEl733,229:POKEl733+LF,C(2) 

:rem 

114 

1150 

POKEl853,229:POKEl853+LF,C(3) 

:rem 

122 

1160 

POKEl736,230:POKEl736+LF,C(3) 

:rem 

115 

1170 

POKEl739,230 :POKEl739+LF,C(2) 

:rem 

121 

1180 

POKEl742,230:POKEl742+LF,C(l) 

:rem 

109 

1190 

POKEl856,228:POKEl856+LF,C(3) 

srem 

131 

1200 

POKEl859,228:POKEl859+LF,C(2) 

srem 

128 

1210 

POKEl862,228:POKEl862+LF,CC 

srem 

53 

1220 

PRINT"{ 6 GIU'}" 

srem 

252 

1230 

FORI = 1TO 4 

srem 

59 

1240 

PRINTTAB(8)A$:PRINTTAB(8)B$ 

srem 

166 

1250 

NEXT 

srem 

7 

1260 

FORT=lTOl6 

srem 

1 24 

1270 

GOSUBl970 

srem 

27 

1280 

POKES(T),63 

srera 

135 

1290 

FORI=lTOQQ(N) 

srem 

78 

1300 

GOSUBl970 

srem 

21 

1310 

PP=0 

srera 

210 

1320 

P=PEEK(Q(I)+LF) :IFP=0THENPP=*1 

srem 

52 

1330 

POKEQ(I),28 :POKEQ(I)+LF,PP:POKEQ(I),R(I) 

:POKEQ(I)+LF 


/P 

srem 

77 

1340 

GETE$: IFE$-""THEN13 3 0 

srera 

1 86 

1350 

IFASC (E$) ■13THEN1390 

srem 

134 

1360 

IFE$ < >"{F1} "THEN1330 

srem 

251 

1 370 

NEXT 

s rem 

10 

1380 

GOTO!290 

srem 

209 

1390 

A=S(T) 

srem 

67 

1400 

IFI>14THEN1430 

srem 

55 

1410 

ONIGOSUB30,40,50,60,70,80,90,100,110,120 

,130,140, 

150 


,160 

srem 

62 

1420 

GOTOl440 

srem 

201 

1430 

ONI-14GOSUB170,180,190,200,210,220,230,240,250,260,2 


70,280,290,300 

srem 

59 

1440 

GOSUBl990 

srem 

28 

1450 

NEXTT 

s rem 

93 

1460 

PRINT"{HOME}{ 17 GIU'}" 

srem 

208 

1470 

PRINT"PREMI Fi PER CAMBIARE" 

srera 

172 

1480 

PRINT"{ 6 SPAZI}F7 PER VISUALIZZARE " 

srem 

171 

1490 

PRINTTAB(16)"{ 8 SPAZI}":PRINTTAB(16)"{ 

10 SPAZI} 

W 



srem 

200 

1500 

GOSUBl970 

srem 

23 
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1 510 
1520 
1 530 
1 540 
1550 
1560 

1 570 
1 580 
1 590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1 800 
1810 
1820 


GETE$:IFE$*"{F 7}"THENl840 
IFE$<>"{Fi}"THENl510 

FORI»!744TOl766:POKEI, 32 :POKEI+40,32 :NEXT 
PRINT"{ 4 SU}PREMI: RETURN = NON CAMBI" 
PRINTTAB(11)"Fi = CAMBI, POI" 


FORTUITO!6 

PS=0:A=S(T):GOSUBl970 
PT=PEEK(A+LF):IFPT=0THENPS=1 
GOSUB2000 

POKEA,40:POKEA+1,41 :POKEA+40,27 :POKEA+41,2 
GOSUB2010 

GETE$: IFE$ = ""THEN1610 
IFASC(E$)*13THEN1 81 0 
IFE$< >"{Fi}"THEN1 61 0 

POKEA,40:POKEA+l,41 :POKEA+40,27 :POKEA+41 ,2 
FORI■1TOQQ(N) 

GOSUBl970 
PP=0 

P=PEEK(Q(I)+LF):IFP=0THENPP=1 
POKEQ(I),28 :POKEQ(I)+LF,PP:POKEQ(I),R(I):POKEQ(I)+LF 


:rem 

71 

:rem 

249 

2 rem 

11 

:rem 

250 

:rem 

IMA” 

74 

: rem 

209 

:rem 

128 

:rem 

25 

:rem 

62 

: rem 

9 

:rem 

254 

:rem 

1 2 

: rem 

1 89 

2 rem 

1 33 

2 rem 

254 

2 rem 

3 

;rem 

80 

2 rem 

32 

2 rem 

221 

2 rem 

54 


,P 

GETE$ : I FE$ - '" " THEN 1 71 0 
IFASC(E$)=13THEN1760 
IFE$< >"{Fi}"THENl71 0 
NEXT 

IFI>14THENl790 


: rem 
: rem 
: rem 
: rem 
: rem 
:rem 


79 
1 90 
1 37 
255 
12 
73 


ONIGOSUB30,40,50,60,70,80,90,100,110,120,130,140,150 
,160 :rem 71 
GOTO1800 :rem 210 
ONI-14GOSUBl70,180,190,200,210,220,230,240,250,260,2 
70,280,290,300 :rem 68 
GOSUBl990 : rem 28 
NEXTT : rem 93 
FORI*1744T01769 :POKEI,32 :POKEI+40,32:POKEI+ 80,32:NEX 



T 

2 rem 

230 

1830 

GOTO1460 

2 rem 

208 

1 840 

FORT=lTOl6 

2 rem 

128 

1850 

A=S(T) 

2 rem 

68 

1860 

GOSUB2000 

2 rem 

17 

1 870 

CC * PEEK(A+ LF) 

2 rem 

7 

1 880 

FORB=S(T)-320TOS(T)+320STEP320 

2 rem 

29 

1890 

FORA=B-8TOB+24STEP8 

2 rem 

200 

1900 

GOSUB2010 :GOSUBl990 

2 rem 

1 54 

1910 

NEXT:NEXT 

2 rem 

131 

1920 

NEXT 

2 rem 

11 

1 930 

PRINT"{ 2 GIU'}PREMI F7 PER FINIRE"; 

2 rem 

1 53 

1940 

GOSUBl970 

2 rem 

31 

1950 

GETE$:IFE$="{F7}"THEN2020 

2 rem 

70 

1960 

GOTO!950 

2 rem 

21 6 
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1970 POKEl98,0:POKEHF,84:POKELF,125 :rem 76 

1980 POKEW,17 : FORD*!TO60:NEXTD:POKEW,0 : RETURN :rem 187 

1990 L=A+LF:POKEL,CC:POKEL+1,CC:POKEL+40,CC:POKEL+41,CC:R 
ETURN : rem 139 

2000 Al= PEEK(A):A2=PEEK(A+1):A3=PEEK(A+40):A4=PEEK(A+41): 

RETURN : rem 163 

2010 POKEA,Al :POKEA+1,A2:POKEA+40,A3 :POKEA+41,A4:RETURN 

:rem 68 

2020 SYS8192 :rem 151 


C6A 


Joystick 


Uccelli assassìni 


Vi è stata affidata la missione di 
esplorare la zona omega della ga¬ 
lassia di Specula ria, che pare inva¬ 
sa da strane creature simili ad uc¬ 
celli preistorici che compiono inu¬ 
sitate stragi nei pianeti abitati. 
Arrivati nella zona siete attratti da 
un misterioso campo di forza che 
vi sospinge inesorabilmente in 
avanti e vi impedisce di fermarvi, 
mettendovi in seri guai. 

Da allora il vostro unico scopo è 
quello di resistere il più possibile 
senza rimanere a contatto troppo 
a lungo con le strane e malvagie 
creature spaziali. 

Per evitare gli uccelli assassini ave¬ 
te anche un'altra possibilità: utiliz¬ 
zare l‘iperspazio. 


Lo scopo del gioco è di raggiunge¬ 
re il maggior punteggio possibile: 
se viaggerete normalmente il pun¬ 
teggio aumenterà a una velocità di 
tre unità al secondo circa, se inve¬ 
ce utilizzerete l’iperspazio esso 
non aumenterà. 

L'iperspazio serve sostanzialmen¬ 
te a uscire sani e salvi da situazioni 
disperate, nelle quali non c’è alcun 
passaggio tra le creature. 

Per attivare e disattivare l'iperspa- 
zio usate rispettivamente i tasti FI 
e F7, mentre per muovervi nelle 
quattro direzioni usate il joystick. 
Per non venire uccisi dai pericolosi 
uccelli è necessario non rimanere 
troppo a lungo a contatto con essi. 


1000 REM *** UCCELLI ASSASSINI *** :rem 80 

1010 PRINTCHRS(147) :GOSUBl700 : REM *** PRESENTAZIONE *** 

:rem 192 

1020 POKE53280,0:POKE53281 ,0 :rem 24 

1030 REM *** LEGGE IL LINGUAGGIO MACCHINA PER LA LETTURA 
DEL JOYSTICK *** :rem 145 

1040 FORI = 491 83T049478: READJ :rera 142 

1050 POKEl,J:CC=CC+J:NEXTI: READJ :rem 14 
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1060 

IFJOCCTHENPRI NT" ERRORE NEI DATA" : END 

:rem 

118 

1070 

SYS 49183 

srem 

208 

1080 

REM *** LEGGE I DATI DEGLI SPRITE *** 

: rem 

1 80 

1090 

FORI-0TO62: READJ:POKE832+I,J:NEXT 

srem 

123 

1100 

FORI*0TO62:READJ:POKE896+I,J:NEXT 

srem 

1 25 

mo 

REM *** INIZIALIZZA I PARAMETRI DEL JOYSTICK *** 




srem 

36 

11 20 

POKE49152,50:POKE49153,0 

srem 

84 

1130 

POKE49156,255:POKE49157,0 

srem 

148 

1140 

POKE49160,1 80 :POKE49161,0 

srem 

136 

1150 

POKE49164,207:POKE49165,0 

srem 

145 

1160 

POKE49168,0 

srem 

95 

1170 

REM *** INIZIALIZZA GLI SPRITE *** 

srem 

170 

1180 

POKE2040,13:VC*53248 

srem 

101 

1190 

POKEVC+39,8 :POKEVC+31,0 

srem 

123 

1 200 

POKEVC+23,1 :POKEVC+29,1 

s rem 

109 

1210 

X*170 :Y=207:POKEVC+1,Y:POKEVC,X 

srem 

195 

1220 

POKE49169,X:POKE49173,Y 

srem 

1 23 

1230 

S-54272 

srem 

90 

1240 

FORI*0TO24:POKES+I,0:NEXT 

srem 

114 

1250 

POKES+5,31 :POKES+6,240 

• srem 

25 

1 260 

PRINTCHR$ (1 7)CHR$ (1 7) 

srem 

202 

1270 

PRINT"{HOME}"TAB(7)"PREMI UN TASTO PER 

GIOCARE” 




srem 

221 

1 280 

GETJ$:IFJ$<>""THENl280 

s rem 

8 

1290 

GETA$: IFA$ *""THEN12 9 0 

srem 

187 

1300 

PRINTCHRS (147) :POKEVC+21 ,1 

srem 

44 

1310 

REM *** ROUTINE PRINCIPALE *** 

srem 

178 

1320 

X=PEEK(49169):Y=PEEK(49173) 

srem 

44 

1330 

PRINTCHRS (19)CHR$ (17) ; 

srem 

5 

1340 

PRINTCHRS (1 57)CHR$ (148) 

srem 

51 

1350 

POKE218,160 

srem 

86 

1360 

POKE646,INT(RND(1)*14+1) 

srem 

82 

1 370 

PRINTTAB(INT(RND(TI)*35))"J+K" 

srem 

212 

1 380 

PRINTCHR?(19)CHR$(158)"PUNTI:"SE 

srem 

171 

1390 

IFSE>HITHENHI*SE 

srem 

88 

1400 

PRINTCHRS(19)TAB(27)"RECORD:"HI 

srem 

109 

1410 

GETA$:IFA$»CHR$(133)THENGOSUB1500 

srem 

212 

1420 

IFA$=CHR$(136)THENGOSUBl550 

srem 

94 

1430 

IFHY-1THENl330 

srem 

92 

1440 

POKEVC+31 ,0 

srem 

124 

1450 

IFPEEK(VC+31)AND1=1THENl590 

srem 

103 

1460 

IFHY=0THENSE=SE+1 

srem 

96 

1470 

POKEVC,X:POKEVC+1,Y 

srem 

251 

1480 

GOTO!320 

srem 

204 

1490 

REM *** IPERSPAZIO *** 

srem 

180 

1 500 

PRINTCHR$(30) 

srem 

8 

1510 

PRINTCHR$(19)TAB(13)"IPERSPAZIO" 

srem 

230 

1520 

POKEVC+21,0:HY *1 

srem 

195 

1530 

RETURN 

srem 

169 

1540 

REM *** FINE DELL'IPERSPAZIO *** 

s rem 

26 
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1550 

PRINTCHRS (1 9)TAB(1 3) "{ 10 SPAZI}" 

:rero 

228 

1560 

POKEVC+21,1:HY=0 

: rem 

199 

1570 

RETURN 

:rem 

173 

1 580 

REM *** ESPLOSIONE *** 

: rem 

175 

1590 

POKE2040,14 

:rem 

85 

1600 

FORV*l5TO0STEP-.3 :POKEVC+21,1 

:r«*m 

49 

1610 

POKES+4,129:POKES,100:POKES+1,3+V 

: rem 

226 

1620 

POKES+24,V:POKEVC+21,0:NEXT 

: rem 

195 

1630 

FORK=lTOl000 :NEXT 

:rem 

71 

1640 

POKE2040,13 

: rem 

80 

1650 

PRINTCHR$(19):F0RT=1T04:PRINTCHR$(17) 

:rem 

80 

1660 

NEXT 

:rem 

12 

1670 

PRINTTAB(15)"FINE GIOCO"CHR$(17) 

:rem 

122 

1680 

FORK = 1TO3000 :NEXT 

:rem 

78 

1690 

SE=0:GOSUBl700 : GOTO!180 

: rem 

148 

1 700 

REM *** PAGINA DI PRESENTAZIONE *** 

:rem 

204 


1710 U$="[<2>]{ 6 SPAZI}{RVS}£ M[<*>]{GIU'}{ 4 SIN} 

{ 2 SPAZI}W {YEL} [<*>] [<2>]{GIU'}{ 6 SIN} 

{ 4 SPAZI}TyEL}[<T>]M[< 2>]{GIU'}{ 7 SIN}£{ 3 SPAZI} 
(OFF}£ {YEL}[<*>]" :rem 76 

1720 U$=U$+"[<2>J{GIU'}{ 8 SIN}{RVS}£{ 2 SPAZljN {GIU'} 

{ 6 SIN}£ N [<H>] {GIU'}{ 7 SINT£N [<H>]{ 3 SPAZI} 
{GIU'}{ 7 SIN} [<H>]{ 2 SPAZI}N nTgIU'}{ 3 SIN}" 

:rem 132 

1730 U$=U$+"{ 4 SIN}{ 4 SPAZl}[<H>] [<H>]{GIU'}{ 7 SIN} 

N{ 5 SPAZI}{GIU'}{ 7 SIN} [<H>]{ 5 SPAZI}" :rem 127 
1740 C$="{ 5 SPAZI} {GIU'} {SIN} {GIU'H 2 SIN}{ 2 SPAZI} 
{GIU'H 3 SIN} { 2 SPAZI} {GIU ' } { 3 SIN}{ 2 SPAZI} 
{GIU'H 3 SIN} { 3 SPAZI } {GIU ' } { 3 SIN} {GIU’HSIN} 
{GIU' } {SIN} {GIU ' } {SIN} {GIU'HSIN} { 2 SIN}" 

:rem 63 

1750 POKE53281,0:POKE53280,0 :rem 34 

1760 PRINT"{CLR}{GIU'} {BLU}{RVS}[<F>]{ 2 DES}[<K>]{OFF} 
[<V>]{ 8 SPAZI}[<D>][<F>] t<D>][<F>}" :rem 40 

1770 PRINT" {RVS}[<K>]{ 2 DES}[<K>]{OFF}{ 10 SPAZI}[<K>] 
[<K>][<C>]" :rem 190 

1780 PRINT" {RVS}[<K>]{ 2 DES}[<K>]{DES}[<D>][<I>]{DES} 
[<D>] [<I>] {DES} -{DES}{OFF}[<K>] [<K>]{RVS}[<K>]" 

:rem 243 

1790 PRINT" [<C>1{RVS}[<C>] {OFF} [<I>] {RVS}t<D>] {DES}[<C>] 
{OFF}[<I>] {RVS}[<C>]{OFF}[<I>] {RVS}[<C>]{OFF}[<I>] 
{RVS}[<C>]{DES}[<C>][<K>]{OFF}[<F>1" :rem 196 

1800 PRINT"{GIU'}{CYN}{ 2 SPAZI}1<D>][<F>]" :rem 177 

1810 PRINT"{ 2 SPAZI}{RVS}[<N>]{<H>}{OFF}{ 17 SPAZI}[<V>] 
{ 4 SPAZI}[<V>]" :rem 25 

1820 PRINT" {RVS}[<K>][<C>][<V>]{OFF}[<K>] {RVS} [<I>] 
{DES} [<I>]{DES}[<I>] {DES} [<I>]{DES} [<I>]{DES} 
{OFF} [<K>] [<C>1{RVS} [<C>]{OFF} [<K>]" :rem 185 

1830 PRINT" {RVS}[<V>]{ 2 DES}[<C>]{OFF} {<I>}{RVS} {OFF} 
[<I> 3 {RVS} {DES}- {OFF} [<I>]{RVS} {OFF} [<I>]{RVS} 
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{DES}[<C>]{DES}[<L>][<K>]{OFF}[<F>]{RVS}[<C>]" 

:rem 45 

1840 PRINT"{ 4 GIU'}{ 22 SPAZI}(<4>]M[< 2 M>] [< 2 G>}N" 

:rem T72 

1850 PRINT" { 22 SPAZI}[<P>]{RVS}U{ 3 *} iJOFF} [<P> ] " 

:rem 127 

1 860 PRINT"{ 22 SPAZI}[<P>]{RVS}-W W-{OFF}[<P>]": rem 10 
1870 PRINT"{ 23 SPAZI}{RVS}- [<E>T^ToFF}" :rem 176 

1880 PRINT"{ 23 SPAZI}{RVS} -U*I- {OFF}" :rem 94 

1890 PRINT"{ 23 SPAZI}{RVS}J{ 3 MK{OFF}" :rem 28 

1 900 PRINT" { 22 SPAZI} [<8>}I 2 SPAZI} {RVS} { 3 SPAZI*} {OFF} 

" :rem 218 

1910 PRINT"{ 20 SPAZI}{RVS}£ N M[<@>]N M [<*>]" :rem 16 

1920 PRINT"{ 20 SPAZI}{RVS}T 2 SPAZI}J<H>]{ 5 SPAZI}[<N>] 

{ 2 SPAZI}" :rem 13 

1930 PRINT"{ 20 SPAZI}{RVS}{ 2 SPAZI}[<H>]{ 5 SPAZI}[<N>] 

{ 2 SPAZI}" : rem 14 

1940 PRINT"{ 20 SPAZI}{RVS}{ 2 SPAZI}[<H>]{ 5 SPAZI}[<N>] 

{ 2 SPAZI}{OFF}"; : rem 220 

1950 FORDS=0TO9:PRINT"{HOME}{ 14 GIU'}"TAB(DS);C$;" 

{ 11 SU }";U$:NEXT :rem 234 

1960 PRINT"{HOME}{ 14 GIU'}{SIN}";:FORI = lTOl1 :PRINTSPC(21 
)"{ 19 SPAZI}";:NEXT :rem 176 

1 970 PRINT"{SU}{ 19 SIN}{CYN}[<@>] [<P>1 {<0>] [<I>] [<0>] 
[<P>] [<0>] [<P>] [<0>] t<I>] [<P>] [<@>1{ 2 SU}"; 

:rem 2 

1980 RETURN :rem 178 

1990 DATA120,173,20,3,141,29,192,173,21 :rera 171 

2000 DATA3,141,30,192,169,71,141,20,3 :rem 55 

2010 DATA169,192,141,21,3,88,96,120,173 :rem 178 

2020 DATA29,192,141,20,3,173,30,192,141 :rem 160 

2030 DATA21,3,88,96,173,27,192,205,16 :rem 82 

2040 DATAI 92,240,3,76,65,193,169,255 :rem 42 

2050 DATA141,27,192,162,0,160,0,185,2 :rem 60 

2060 DATA220,141,28,192,169,224,153,2 :rem 73 

2070 DATA220,185,0,220,72,173,28,192 :rem 23 

2080 DATA153,2,220,189,8,192,221,21,192 :rein 173 

2090 DATAI 89,9,192,253,22,192,144,18 :rem 44 

2100 DATA189,8,192,157,21,192,189,9,192 :rem 198 

2110 DATAI 57,22,192,104,74,72,76,162 :rem 30 

2120 DATAI 92,104,74,72,176,13,222,21 :rem 19 

2130 DATA192,189,21,192,201,255,208,3 :rem 77 

2140 DATA222,22,192,189,21,192,221,12 :rem 68 

2150 DATAI 92,189,22,192,253,13,192,144 :rem 135 

2160 DATA18,189,12,192,157,21,192,189 :rem 95 

2170 DATA13,192,157,22,192,104,74,72,76 :rem 183 

2180 DATA207,192,104,74,72,176,8,254,21 :rem 183 

2190 DATA192,208,3,254,22,192,189,0,192 :rem 184 

2200 DATA221,17,192,189,1,192,253,18 :rem 29 

2210 DATAI 92,144,18,189,0,192,157,17 :rem 36 
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2220 DATAI 92,189,1,192,1 57,1 8,192,104 
2230 DATA74,72,76,1,193,104,74,72,176 
2240 DATAI 3,222,17,192,189,17,192,201 
2250 DATA255,208,3,222,1 8,192,1 89,17 
2260 DATAI 92,221 ,4,192,1 89,18,192,253,5 
2270 DATAI 92,144,1 8,189,4,1 92,1 57,17 
2280 DATAI 92,1 89,5,192,1 57,1 8,192,104 
2290 DATA74,72,76,46,193,104,74,72,176 
2300 DATA8,254,17,1 92,208,3,254,1 8,192 
2310 DATAI 04,74,176,5,169,1,153,25,192 
2320 DATA200,232,232,224,4,240,3,76,91 
2330 DATAI 92,238,27,192,108,29,192 
2340 DATA35994: REM *** CHECKSUM *** 

2350 REM *** DATI SPRITE 0 (ASTRONAVE) *** 
2360 DATAO,32,0,0,32,0,0,32,0,0,112,0,0 
2370 DATA80,0,0,112,0,0,112,0,0,11 2,0,0 
2380 DATA248,0,0,248,0,0,248,0,0,248,0 
2390 DATAO,248,0,2,250,0,2,170,0,6,171 
2400 DATAO,6,171 ,0,6,171 ,0,6,1 71 ,0,7,39 
2410 DATAO,7,39,0 

2420 REM *** DATI SPRITE 0 (ESPLOSIONE) *** 
2430 DATAO,16,64,34,16,128,19,9,16,8 
2440 DATA200,96,4,68,64,2,32,128,48,9,0 
2450 DATAI 2,172,28,2,68,224,0,17,0,1 
2460 DATAI 68,48,24,37,8,97,64,128,2,8 
2470 DATA96,4,136,16,1,36,140,2,36,64,4 
2480 DATA68,32,8,66,0,16,2,0,0,0,0 


:rem 

86 

: rem 

87 

:rem 

77 

:rem 

37 

:rem 

1 87 

: rem 

46 

: rem 

96 

:rem 

1 50 

:rem 

1 31 

: rem 

128 

2 rem 

109 

2 rem 

200 

2 rem 

94 

2 rem 

215 

2 rem 

104 

2 rem 

110 

2 rem 

103 

2 rem 

96 

2 rem 

1 48 

2 rem 

104 

2 rem 

35 

2 rem 

27 

2 rem 

176 

2 rem 

9 

2 rem 

100 

2 rem 

171 

2 rem 

160 
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SCALDA IL JOYSTICK 
E GASATI CON 



IL fERO GIOCO COMINCIA ADESSO 





A Milano, 

in «ia Mascheroni 14. 
la prima software 

librerìa italiana 

Il MI vi Kl ImHKMCI 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON. 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14 


TBL 02-437385 


Vieni a trovarti: ti aspettiamo. 





